home *** CD-ROM | disk | FTP | other *** search
/ Fritz: All Fritz / All Fritz.zip / All Fritz / FILES / DATAUTIL / DBASEUT1.LZH / MAIN.PRG < prev    next >
Text File  |  1986-03-13  |  2KB  |  70 lines
  1. set proc to menu1.prg
  2.  
  3. ******************* enable these to shuoff cursor
  4. * load cursoff.bin
  5. * load curson.bin
  6.  
  7. mNcolor = "W+/B,N/W,B"
  8. mPcolor = "N/W"
  9.  
  10.  
  11.                    DO WHILE .T.
  12.   Hdr = " A B C  HACKERS INC. "
  13.   Ds0 = "RETURN to TOP LEVEL MENU"
  14.   Ds1 = " ACCOUNTING SYSTEM "
  15.   Ds2 = " MANUFACTURING SYSTEM "
  16.   Ds3 = " Computer Security Procedures including password files etc."
  17.   St0 = " 0 - ** EXIT ** "
  18.   St1 = " 1 - Accounting "
  19.   St2 = " 2 - Manufact.  "
  20.   St3 = " 3 - Security   "
  21. MEGSET = st0+st1+st2+st3
  22. response=0
  23. DO MENU with Hdr,3,Response
  24. do case
  25.   case response = 0
  26.      exit              &&<--- loop exited by response of 0
  27.   case response = 1
  28.   clear
  29.   @ 9,13 say " ACCOUNTING SYSTEM "
  30.   wait
  31.  
  32.   case response = 2         
  33.   @ 9,13 say " Manufacturing system "
  34.   wait
  35.                             &&<----you programs go in here you can even call
  36.   case response = 3         &&the menu1 again after redefining Ds & St,Hdr etc
  37.  
  38.     Ds0 = " RETURN to MAIN MENU "
  39.     Ds1 = " Password File "
  40.     Ds2 = " Your Password "
  41.     Ds3 = "  His Password "
  42.     Ds4 = " Their Password"
  43.     Ds5 = " Unknown user files "
  44.     Ds6 = " Junk Files for unauthorized entries "
  45.     Ds7 = " Your Mothers private file "
  46.     Ds8 = " Your Fathers private file "
  47.     Ds9 = " Anyone who looks like you "
  48.     St0 = " 0 - * Exit * "
  49.     St1 = " 1 - Option 1 "
  50.     St2 = " 2 - Option 2 "
  51.     St3 = " 3 - Option 3 "
  52.     St4 = " 4 - Option 4 "
  53.     St5 = " 5 - Option 5 "
  54.     St6 = " 6 - Option 6 "
  55.     St7 = " 7 - Option 7 "
  56.     St8 = " 8 - Option 8 "
  57.     St9 = " 9 - Option 9 "
  58.     megset = St0+st1+st2+st3+st4+st5+st6+St7+st8+st9
  59.     DoKey=0
  60.     DO menu1 with Hdr,9,dokey
  61.      do case
  62.         case dokey = 0
  63.          exit
  64. *    |
  65. *    |
  66. *    |
  67. *    |
  68.     endcase
  69. endcase
  70.                     ENDDO